home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 October / CD [BM9510].bin / basic / toukou / msx / senkanl2.bas < prev   
Encoding:
BASIC Source File  |  1984-04-19  |  4.8 KB  |  106 lines
  1. 10 COLOR15,0,0:SCREEN5,2,0:OPEN"GRP:"AS#1:DEFINTA-Z
  2. 20 ' àààààààà  SETTING  àààààààà
  3. 30 DIMA(10,10),B(10,10),C(10,10)
  4. 40 DEFUSR=342:DEFUSR1=&H41:DEFUSR2=&H44
  5. 50 FORI=0TO4:READA$:FORJ=0TO31:VPOKE&H7800+I*32+J,VAL("&H"+MID$(A$,J*2+1,2))
  6. 60 NEXTJ,I:COPY"ûÆ₧²-CHR.DAT"TO(0,0),1
  7. 70 FORI=0TO3:READN$(I):NEXT
  8. 80 ' àààààààà  TITLE  àààààààà
  9. 90 SETPAGE0,0:CLS:FORI=0TO4:PUTSPRITEI,(-32,-32):NEXT
  10. 100 LINE(62,36)-(194,72),10,BF
  11. 110 LINE(64,38)-(192,70),8,BF
  12. 120 FORI=0TO3:PUTSPRITEI,(72+I*32,46),15,I+1:NEXT
  13. 130 FORI=0TO3:PRESET(116,I*8+92):PRINT#1,N$(I):NEXT
  14. 140 PRESET(100,92):PRINT#1,">":LE=0
  15. 150 COLOR10:PRESET(84,150):PRINT#1,"SELECT LEVEL":COLOR15
  16. 160 PRESET(52,170):PRINT#1,"ASSISTANT"
  17. 170 COLOR10:PRESET(132,170):PRINT#1,"FORMULA-X"
  18. 180 COLOR15:PRESET(56,182):PRINT#1,"(C) 1990"
  19. 190 COLOR10:PRESET(128,182):PRINT#1,"TACK SOFT":COLOR15
  20. 200 S=STICK(0)+STICK(1):IFS<>1ANDS<>5THEN230ELSEPRESET(100,92+LE*8):PRINT#1," "
  21. 210 LE=LE+(S=1ANDLE>0)-(S=5ANDLE<3):PRESET(100,92+LE*8):PRINT#1,">"
  22. 220 SOUND7,56:PLAY"T255V15L10O6EC":GOSUB880
  23. 230 IFSTRIG(0)=0ANDSTRIG(1)=0THEN200
  24. 240 PLAY"T255V15L10O6FA":GOSUB880:FORI=0TO999:NEXT:U=USR1(0)
  25. 250 ' àààààààà  GAMEN  àààààààà
  26. 260 SETPAGE0,0:CLS
  27. 270 FORI=0TO10:FORJ=0TO10:COPY(0,0)-(15,15),1TO(I*17+8,J*17+16),0:NEXTJ,I
  28. 280 FORI=0TO10:FORJ=0TO10:LINE(I*17+7,J*17+15)-STEP(17,17),15,B:NEXTJ,I
  29. 290 FORI=0TO1:PUTSPRITEI+1,(202+I*16,16),15,I+1:NEXT
  30. 300 FORI=0TO1:PUTSPRITEI+3,(218+I*16,38),15,I+3:NEXT
  31. 310 PRESET(202,64):PRINT#1,"PLAYER":PRESET(206,104):PRINT#1,N$(LE)
  32. 320 GOSUB960:PUTSPRITE0,(-32,-32)
  33. 330 U=USR2(0)
  34. 340 ' àààààààà  PLAYER SENKAN SET  àààààààà
  35. 350 X=0:Y=0:FORI=0TO10:FORJ=0TO10:A(I,J)=0:B(I,J)=0:C(I,J)=0:NEXTJ,I:J=0
  36. 360 GOSUB850:IFA(X,Y)THENPLAY"CF":GOSUB880:GOTO360
  37. 370 PLAY"ED":GOSUB880:A(X,Y)=-1:LINE(242-J*4,80)-STEP(2,7),4,BF
  38. 380 COPY(16,0)-(31,15),1TO(X*17+8,Y*17+16),0:J=J+1:IFJ<11THEN360
  39. 390 ' àààààààà  ENEMY SENKAN SET  àààààààà
  40. 400 J=0
  41. 410 X=RND(1)*11:Y=RND(1)*11:IFA(X,Y)ORB(X,Y)THEN410
  42. 420 PLAY"ED":GOSUB880:B(X,Y)=-1:LINE(242-J*4,120)-STEP(2,7),4,BF
  43. 430 J=J+1:IFJ<11THEN410
  44. 440 GOSUB960:PLAY"ER8FR8GR8AEAEAED2":GOSUB880
  45. 450 X=0:Y=0:EX=0:EY=9:P(0)=10:P(1)=10
  46. 460 ' àààààààà  MAIN  àààààààà
  47. 470 PL=0:GOSUB500:PL=1:ONLE+1GOSUB570,630,700,760:X=XX:Y=YY
  48. 480 GOTO470
  49. 490 ' àààààààà  PLAYER ATTACK  àààààààà
  50. 500 GOSUB850:IFA(X,Y)ORC(X,Y)THENPLAY"CF":GOSUB880:GOTO500
  51. 510 C(X,Y)=-1:IFB(X,Y)=-1THEN530
  52. 520 GOSUB890:GOSUB900:RETURN
  53. 530 GOSUB890:GOSUB930:P(1)=P(1)-1:LINE(206+P(1)*4,120)-STEP(2,7),4,BF
  54. 540 IFP(1)<0THENA$="PLAYER":GOSUB990:GOTO820ELSERETURN
  55. 550 GOSUB890
  56. 560 ' àààààààà  ENEMY ATTACK  àààààààà
  57. 570 XX=X:YY=Y
  58. 580 X=RND(1)*11:Y=RND(1)*11:IFB(X,Y)ORC(X,Y)THEN580
  59. 590 C(X,Y)=-1:IFA(X,Y)THEN610
  60. 600 GOSUB890:GOSUB900:RETURN
  61. 610 EX=X:EY=Y:GOSUB980:GOTO800
  62. 620 '
  63. 630 XX=X:YY=Y:IFRND(1)<.6THEN580ELSEX=EX:Y=EY
  64. 640 X=X+1:IFX>10THENX=0:Y=(Y+1)MOD10
  65. 650 IFB(X,Y)ORC(X,Y)THEN640
  66. 660 C(X,Y)=-1:EX=X:EY=Y:IFA(X,Y)THEN680
  67. 670 GOSUB890:GOSUB900:RETURN
  68. 680 GOSUB980:GOTO800
  69. 690 '
  70. 700 XX=X:YY=Y:X=EX:Y=EY
  71. 710 S=RND(1)*4:X=X+(S=0ANDX>0)-(S=1ANDX<10):Y=Y+(S=2ANDY>0)-(S=3ANDY<10)
  72. 720 IFB(X,Y)ORC(X,Y)THEN710
  73. 730 C(X,Y)=-1:EX=X:EY=Y:IFA(X,Y)THENGOSUB980:GOTO800
  74. 740 GOSUB890:GOSUB900:RETURN
  75. 750 '
  76. 760 XX=X:YY=Y:IFRND(1)>.1THEN580
  77. 770 X=RND(1)*11:Y=RND(1)*11:IFA(X,Y)=0ORC(X,Y)THEN770
  78. 780 C(X,Y)=-1:GOSUB980:GOTO800
  79. 790 '
  80. 800 IFP(0)<0THENA$=N$(LE):PLAY"T255V15O4L4AGEGA2":GOTO820ELSERETURN
  81. 810 ' àààààààà  GAME SET  àààààààà
  82. 820 LINE(49,101)-(151,116),0,BF:PRESET(56,105):PRINT#1,A$+" Θ ûß!"
  83. 830 FORI=0TO8000:NEXT:PUTSPRITE0,(0,217):GOTO90
  84. 840 ' àààààààà  SUB  àààààààà
  85. 850 S=STICK(0)+STICK(1):IFSMOD2=0THEN870ELSEFORI=0TO200:NEXT
  86. 860 X=X+(S=7ANDX>0)-(S=3ANDX<10):Y=Y+(S=1ANDY>0)-(S=5ANDY<10)
  87. 870 PUTSPRITE0,(X*17+8,Y*17+16),8,0:IFSTRIG(0)=0ANDSTRIG(1)=0THEN850ELSERETURN
  88. 880 FORI=0TO0:I=PLAY(0):NEXT:RETURN
  89. 890 FORI=0TO255STEP4:SOUND0,I:SOUND8,15:NEXT:SOUND8,0:RETURN
  90. 900 SOUND6,1:SOUND7,119:SOUND8,16:SOUND12,30:SOUND13,0
  91. 910 COPY(96,0)-(111,15),1TO(X*17+8,Y*17+16),0
  92. 920 FORI=0TO900:NEXT:SOUND7,56:SOUND8,0:RETURN
  93. 930 P=1:FORI=0TO5:SOUND6,254:SOUND7,119:SOUND8,16:SOUND12,30:SOUND13,0
  94. 940 COPY(32+P*16+PL*32,0)-STEP(15,15),1TO(X*17+8,Y*17+16),0:P=(P+1)MOD2
  95. 950 FORJ=0TO60:NEXTJ,I:FORI=0TO799:NEXT:SOUND7,56:SOUND8,0:RETURN
  96. 960 FORI=0TO1:FORJ=0TO10:LINE(202+J*4,80+I*40)-STEP(2,7),10-I*2,BF
  97. 970 NEXTJ,I:RETURN
  98. 980 GOSUB890:GOSUB930:P(0)=P(0)-1:LINE(206+P(0)*4,80)-STEP(2,7),4,BF:RETURN
  99. 990 PLAY"T255V15O4L8DR64ER64GR10GR64AR64BR64E3R64E8R64DR64C2":RETURN
  100. 1000 DATA F080808000010107010100808080F0001E020202000000C00000000202021E00
  101. 1010 DATA 0444270810874404042F2424444780000000FE0000FC444444FE444444FE0438
  102. 1020 DATA 91494A007F49497F49497F08FF080809202824207E2022222424282890324A86
  103. 1030 DATA 1151517952921214101931D212141010000000FE929292929212222242428418
  104. 1040 DATA 007B00FC03780078037849494949794100FC4040F8488888FE00F8080808F808
  105. 1050 DATA φ²¢²,Γÿ▐≡,Dr.D,╢╣▐¢²
  106.